C:\to_server\website\mrdcl-learning.com\mrdcl_files\TAB-102\run13a.stp
start data,
serial number in columns 1,2,3,
card characters 100,
ds $gender=$5/1,2,
x='Male;
Female',
xt='Gender',
ds $age=$6/1-3,
x='Under 35;
36-54;
55+',
xt='Age',
!
di $price=$7-8,
xt='Cost',
finish data,
start tables,
t#actual(f=nptr/nptc/nrtv)=$age * $gender,
t#target(f=nitb/nptr/nptc/nrtv/dpt1)=$age * $gender,
t#factor(f=nitb/nptr/nptc/nrtv/dpt1)=$age * $gender,
finish tables,
start manip,
mt#target(r1-$,c1-$)=(20,30,40,50,60,70),
mt#factor(r1-$,c1-$)=#target(r1-$,c1-$) / #actual(r1-$,c1-$),
finish manip,
start tables,
ds $wtmatrix=$age.by.$gender,
dw $weight=$wtmatrix(#factor),
select wr $weight,
t#1=$age * $gender,
select wr 1,
t#2=$age * $gender,
vt='Unweighted',
finish tables,
